home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Networking / Timbuktu⁄Remote / Timbuktu⁄Remote™ Tour / Timbuktu_Remote™ Tour / card_6642.txt < prev    next >
Text File  |  1989-07-19  |  2KB  |  73 lines
  1. -- card: 6642 from stack: in
  2. -- bmap block id: 7228
  3. -- flags: 0000
  4. -- background id: 2758
  5. -- name: chat
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   put empty into card field "ErrorMessage"
  9. end closeCard
  10.  
  11.  
  12.  
  13. -- part 2 (button)
  14. -- low flags: 00
  15. -- high flags: 2000
  16. -- rect: left=439 top=317 right=334 bottom=506
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Play Tape
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   PlayScreen
  28.   put empty into card field ErrorMessage
  29.   PlayScreen "Remote Connection","Hide"
  30.   --the syntax for the PlayScreen XCMD is:
  31.   --PlayScreen {fullTapeName} [,"Hide"] [,"Disable"] [,"Repeat"]
  32.   put the result into errorCode
  33.   if errorCode is not empty then
  34.     beep
  35.     put errorCode into card field ErrorMessage
  36.   end if
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 3 (field)
  42. -- low flags: 01
  43. -- high flags: 0000
  44. -- rect: left=57 top=209 right=260 bottom=379
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 3
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: ErrorMessage
  53.  
  54.  
  55. -- part 4 (button)
  56. -- low flags: 00
  57. -- high flags: 2000
  58. -- rect: left=439 top=291 right=317 bottom=506
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Return
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   visual dissolve
  70.   go card "Tour Menu"
  71. end mouseUp
  72.  
  73.